home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / MacPerl5 / pod / splitman < prev   
Encoding:
Text File  |  1994-12-26  |  641 b   |  47 lines  |  [TEXT/MPS ]
  1. #!/usr/bin/perl
  2.  
  3. while (<>) {
  4.     if ($seqno = 1 .. /^\.TH/) {
  5.     unless ($seqno =~ /e/i) {
  6.         $header .= $_;
  7.     } 
  8.     next;
  9.     } 
  10.  
  11.     if ( /^\.Ip\s*"(.*)"\s*\d+$/) {
  12.     $desking = 0;
  13.     $desc = $1;
  14.     if (name($desc) ne $myname) {
  15.         $myname = name($desc);
  16.         print $myname, "\n";
  17.         open(MAN, "> $myname.3pl");
  18.         print MAN <<EOALL;
  19. $header
  20. .TH $myname 3PL "\\*(RP"
  21. .SH NAME 
  22. $myname
  23. .SH SYNOPSIS 
  24. .B $desc
  25. EOALL
  26.     } else {
  27.         print MAN <<EOMORE;
  28. .br
  29. .ti +3n
  30. or
  31. .br
  32. .B $desc
  33. EOMORE
  34.     } 
  35.     next;
  36.     } 
  37.     unless ($desking) {
  38.     print MAN ".SH DESCRIPTION\n";
  39.     $desking = 1;
  40.     } 
  41.     print MAN;
  42. } 
  43.  
  44. sub name {
  45.     ($_[0] =~ /(\w+)/)[0];
  46. } 
  47.